home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Sound / Juke-Box folder / Juke-Box Demo v 1.1 / Juke-Box Demo v 1.92 / 00203_-help.ls < prev    next >
Encoding:
Text File  |  1994-10-17  |  1.1 KB  |  34 lines
  1. on mouseDown
  2.   set spriteNumber to the clickOn
  3.   puppetSprite(spriteNumber, 1)
  4.   set normal to the name of cast the mouseCast
  5.   set pressed to the name of cast the mouseCast
  6.   put "‚Ä¢" into char 1 of pressed
  7.   if pressed = "‚Ä¢" then
  8.     puppetSprite(spriteNumber, 1)
  9.     exit
  10.   end if
  11.   repeat while the mouseDown
  12.     set the castNum of sprite spriteNumber to cast pressed
  13.     if not rollOver(spriteNumber) then
  14.       set the castNum of sprite spriteNumber to cast normal
  15.       updateStage()
  16.       puppetSprite(spriteNumber, 0)
  17.       exit
  18.     end if
  19.     updateStage()
  20.   end repeat
  21.   if the name of cast the castNum of sprite 40 = "*boutonOFF" then
  22.     set A to "Sorry, the MIDI channel is still activated even if the DEMO is finished. You must first close it in order to get some help."
  23.     set B to "To do this, simply click on the ‚ÄúStop MIDI demo‚Äù button."
  24.     set C to A & RETURN & RETURN & B
  25.     alert(C)
  26.     puppetSprite(spriteNumber, 0)
  27.     exit
  28.   end if
  29.   set the castNum of sprite spriteNumber to cast normal
  30.   puppetSprite(spriteNumber, 0)
  31.   updateStage()
  32.   go("help")
  33. end
  34.